Formatting the strip labels of facet grids and wraps and then convert them with ggplotly.

mtcars$cyl2 <- factor(mtcars$cyl, labels = c("alpha", "beta", "gamma"))
p <- ggplot(mtcars, aes(wt, mpg)) + geom_point()
p <-  p + facet_grid(. ~ cyl, labeller = label_value)
plotly::ggplotly(p)
mtcars$cyl2 <- factor(mtcars$cyl, labels = c("alpha", "beta", "gamma"))
p <- ggplot(mtcars, aes(wt, mpg)) + geom_point()
p <-  p + facet_grid(. ~ cyl, labeller = label_both)
plotly::ggplotly(p)
mtcars$cyl2 <- factor(mtcars$cyl, labels = c("alpha", "beta", "gamma"))
p <- ggplot(mtcars, aes(wt, mpg)) + geom_point()
p <-  p + facet_grid(am ~ vs+cyl, labeller = label_context)
plotly::ggplotly(p)
mtcars$cyl2 <- factor(mtcars$cyl, labels = c("alpha", "beta", "gamma"))
p <- ggplot(mtcars, aes(wt, mpg)) + geom_point()
p <-  p + facet_grid(. ~ cyl2)
plotly::ggplotly(p)
mtcars$cyl2 <- factor(mtcars$cyl, labels = c("alpha", "beta", "gamma"))
p <- ggplot(mtcars, aes(wt, mpg)) + geom_point()
p <-  p + facet_grid(. ~ cyl2, labeller = label_parsed)
plotly::ggplotly(p)